home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 July
/
07_02.iso
/
software
/
xq-xsetup
/
files
/
setup.exe
/
{app}
/
plugins
/
XQ MSO2K Options 2.xpl
< prev
next >
Wrap
Text File
|
2000-08-07
|
1KB
|
75 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="2"
"UIPATH"="Program Options\Microsoft Office\MS Office 2000\Excel 2000"
"NAME"="Excel Options"
"VERSION"="1.05"
"LANGUAGE"="VBScript"
"TEXT 1"="Always display four digit year values in Excel"
"TEXT 2"="Force Excel to display extended characters correctly"
"DESCRIPTION 1"="Some options for Microsoft Excel 2000"
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"=" "
sV1="HKCU\Software\Policies\Microsoft\Office\9.0\Excel\Options\EnableFourDigitYearDisplay" 'DW
sV2="HKCU\Software\Microsoft\Office\9.0\Excel\Options\FontSub" 'DW
sPCheck="HKCU\Software\Microsoft\Office\9.0\"
Sub Plugin_Initialize
if RegPathExists(sPCheck) then
i=RegReadValue(sV1)
if i=1 then SetUiElement 1,true
i=RegReadValue(sV2)
if IsEmpty(i)=true then
SetUiElement 2,false
else
if i=0 then SetUiElement 2,true
end if
'i=RegReadValue(sV3)
'if i<>1 then SetUiElement 3,true
else
disable()
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
if GetUIElement(1)=true then
i=1
else
i=0
end if
Call RegWriteValue(sV1,i,2)
if GetUIElement(2)=true then
i=0
else
i=1
end if
Call RegWriteValue(sV2,i,2)
Call Logoff()
End Sub
Sub Plugin_Terminate
End Sub